home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / DEV / I-Z / ViewIt™ Shareware.sea / ViewIt™ 2.04 Shareware / Projects / Fortran Demos / MinimumAF.f < prev    next >
Text File  |  1992-08-04  |  776b  |  34 lines

  1. C NOTE: Read the "MPW Fortrans" section of "About Compilers"
  2. C before compiling AF programs that use FaceWare modules.
  3.  
  4. C Minimum AF Demonstration Program
  5. C ©FaceWare 1991-92.  All Rights Reserved.
  6.  
  7.     GLOBAL DEFINE
  8.     include "Types.inc"
  9.     include "QuickDraw.inc"
  10.     include "Controls.inc"
  11.     include "Events.inc"
  12.     include "OSUtils.inc"
  13.     include "OSEvents.inc"
  14.     include "SegLoad.inc"
  15.     include "Files.inc"
  16.     include "Resources.inc"
  17.     include "FaceStorAF.inc"
  18.     END
  19.  
  20.     include "FaceProcAF.inc"
  21.  
  22.       PROGRAM MinimumAF
  23.     implicit none
  24.       record /FaceRec/ fRec
  25.       common/FaceStuff/fRec
  26.  
  27.       fRec.uName = 'Minimum.Rsrc'
  28.       call FaceIt(0,DoInit,0,0,0,0)
  29.     call FaceIt(0,HlpWnd,0,0,10,10)  !optional
  30.       do while (.true.)
  31.         call FaceIt(0,DoLoop,0,0,0,0)
  32.       end do
  33.       end
  34.